
;; Demonstrate inverse mapping of signed and unsigned values.

(map (lambda (n size-n signed?)
       (u8vector->vector (integer->u8vector n size-n signed? #t)))
     (list -1 255 -1)
     (list  1   2  4)
     (list #t  #f #t))	     ; => (#(255) #(0 255) #(255 255 255 255))

(map (lambda (v signed?)
       (u8vector->integer (vector->u8vector v) signed? #t))
     (list #(255) #(0 255) #(255 255 255 255))
     (list #t     #f       #t))		; => (-1 255 -1)
